10 REM RANDOM NUMBER PLOTTING
15 REM LINE 50 IS INITIAL SEEDING VALUE
20 REM LINE 70 IS GENERATOR FOR X
25 DIMI(6000):CLR:B=8192:POKE53272,PEEK(53272)OR8:POKE 53265,PEEK(53265)OR32
30 FORI=1024TO2024:POKEI,1:NEXT
40 REM----RANDOM NUMBER SEED----
50 X=RND(-TI/1023)
55 FORI=1TO1E37
65 REM----RANDOM NUMBER GENERATOR----
70 X=RND(1)*63999
75 REM----PLOTTING SECTION----
80 X=INT(X):Y=INT(X/8):POKEB+Y,PEEK(B+Y)OR2^(7-X+Y*8):IFPEEK(198)=0THENNEXT
85 POKE198,0:SYS198